home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G09F / G09_HARA.Dxr / 00066.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.6 KB  |  130 lines
  1. global g_no, jumplistkey
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   set the cursor of sprite 11 to mycursor
  6.   set the cursor of sprite 12 to mycursor
  7.   set the cursor of sprite 13 to mycursor
  8.   set the cursor of sprite 14 to mycursor
  9.   set the cursor of sprite 15 to mycursor
  10.   set the cursor of sprite 16 to mycursor
  11.   set the cursor of sprite 17 to mycursor
  12.   set the cursor of sprite 18 to mycursor
  13.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5"]
  14.   set volset to the soundLevel
  15.   if the soundEnabled = 0 then
  16.     set the soundEnabled to 1
  17.   end if
  18. end
  19.  
  20. on donext
  21.   if (g_no + 1) = 6 then
  22.     set g_no to 0
  23.   end if
  24.   go(getAt(jumplistkey, g_no + 1))
  25. end
  26.  
  27. on doback
  28.   if (g_no - 1) = 0 then
  29.     set g_no to 6
  30.   end if
  31.   go(getAt(jumplistkey, g_no - 1))
  32. end
  33.  
  34. on doexit
  35.   sound stop 1
  36.   go("M4", "@::JMACMENU")
  37. end
  38.  
  39. on crtopen
  40.   puppetSprite(6, 1)
  41.   repeat while the stillDown
  42.     set the memberNum of sprite 6 to 12
  43.     updateStage()
  44.   end repeat
  45.   set the memberNum of sprite 6 to 10
  46.   updateStage()
  47.   puppetSprite(6, 0)
  48. end
  49.  
  50. on crtclose
  51.   puppetSprite(7, 1)
  52.   repeat while the stillDown
  53.     set the memberNum of sprite 7 to 13
  54.     updateStage()
  55.   end repeat
  56.   set the memberNum of sprite 7 to 11
  57.   updateStage()
  58.   puppetSprite(7, 0)
  59. end
  60.  
  61. on crtback
  62.   puppetSprite(21, 1)
  63.   repeat while the stillDown
  64.     set the memberNum of sprite 21 to 27
  65.     updateStage()
  66.   end repeat
  67.   set the memberNum of sprite 21 to 26
  68.   updateStage()
  69.   puppetSprite(21, 0)
  70. end
  71.  
  72. on crtnext
  73.   puppetSprite(20, 1)
  74.   repeat while the stillDown
  75.     set the memberNum of sprite 20 to 25
  76.     updateStage()
  77.   end repeat
  78.   set the memberNum of sprite 20 to 24
  79.   updateStage()
  80.   puppetSprite(20, 0)
  81. end
  82.  
  83. on crtclose2
  84.   puppetSprite(22, 1)
  85.   repeat while the stillDown
  86.     set the memberNum of sprite 22 to 29
  87.     updateStage()
  88.   end repeat
  89.   set the memberNum of sprite 22 to 28
  90.   updateStage()
  91.   puppetSprite(22, 0)
  92.   puppetSprite(1, 0)
  93.   puppetSprite(26, 0)
  94. end
  95.  
  96. on crtreiyer
  97.   puppetSprite(23, 1)
  98.   repeat while the stillDown
  99.     set the memberNum of sprite 23 to 23
  100.     updateStage()
  101.   end repeat
  102.   set the memberNum of sprite 23 to 22
  103.   updateStage()
  104.   puppetSprite(23, 0)
  105. end
  106.  
  107. on crtzoomin
  108.   puppetSprite(23, 1)
  109.   repeat while the stillDown
  110.     set the memberNum of sprite 23 to 35
  111.     updateStage()
  112.   end repeat
  113.   set the memberNum of sprite 23 to 34
  114.   updateStage()
  115.   puppetSprite(23, 0)
  116. end
  117.  
  118. on crtzoomout
  119.   puppetSprite(23, 1)
  120.   repeat while the stillDown
  121.     set the memberNum of sprite 23 to 37
  122.     updateStage()
  123.   end repeat
  124.   set the memberNum of sprite 23 to 36
  125.   updateStage()
  126.   puppetSprite(23, 0)
  127.   puppetSprite(1, 0)
  128.   puppetSprite(26, 0)
  129. end
  130.